PolTyp PolarCheck (n, ImSize, CenGra, OutlIm)
int   n, ImSize;
CGTyp CenGra;
BYTE  ** OutlIm;
{
   int    r,c, d,dy,dx, Min,Max;
   long   Mean;
   PolTyp Pol;

   Min = 2*ImSize;
   Max = 0;
   Mean = 0;
   for (r=0; r<ImSize; r++)
      for (c=0; c<ImSize; c++)
         if (OutlIm[r][c]) {
            dy = CenGra.r - r;
            dx = CenGra.c - c;
            d = (int) sqrt ((float)dy*dy + dx*dx);
            if (d<Min)
               Min = d;
            else if (d>Max)
               Max = d;
            Mean += d;
         }
   Mean /= n;
   Pol.Min = (float) Min/Mean;
   Pol.Max = (float) Max/Mean;
   return (Pol);
}
